home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
SHOWEVAR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-09-06
|
341b
|
17 lines
PROGRAM ShowEnvironmentVariable;
USES DOS;
VAR
Name,Value : String;
BEGIN
Write('Enter the name of an environment variable: ');
Readln(Name);
Value := GetEnv(Name);
IF Length(Value) = 0 THEN
Writeln('That variable is not in the environment.')
ELSE
Writeln('The value of ',Name,' is ',Value,'.');
END.